object AddressListFrm: TAddressListFrm Left = -24 Top = 92 BorderIcons = [] BorderStyle = bsSingle Caption = 'Contact List' ClientHeight = 255 ClientWidth = 638 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MainMenu1 Position = poScreenCenter ShowHint = True OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object OKBut: TBitBtn Left = 556 Top = 219 Width = 75 Height = 25 Hint = 'Exit Phonebook' HelpContext = 91 Caption = '&OK' TabOrder = 3 OnClick = OKButClick Kind = bkOK end object ToBut: TButton Left = 177 Top = 219 Width = 75 Height = 25 Hint = 'Send Message To User' HelpContext = 91 Caption = '&TO' TabOrder = 4 OnClick = ToButClick end object CCBut: TButton Left = 251 Top = 219 Width = 75 Height = 25 Hint = 'Carbon Copy Message To User' HelpContext = 91 Caption = '&CC' TabOrder = 5 OnClick = CCButClick end object BccBut: TButton Left = 325 Top = 219 Width = 75 Height = 25 Hint = 'Blind Carbon Copy Message To User' HelpContext = 91 Caption = '&BCC' TabOrder = 6 OnClick = BccButClick end object EditBut: TButton Left = 403 Top = 219 Width = 75 Height = 25 Hint = 'Edit Selected User' HelpContext = 91 Caption = '&Edit' Enabled = False TabOrder = 2 OnClick = EditButClick end object NewBut: TButton Left = 477 Top = 219 Width = 75 Height = 25 Hint = 'Add New User To Phonebook' HelpContext = 91 Caption = '&New' Enabled = False TabOrder = 1 OnClick = NewButClick end object Panel1: TPanel Left = 6 Top = 38 Width = 161 Height = 209 BevelInner = bvRaised TabOrder = 7 object BookLabel1: TLabel Left = 8 Top = 8 Width = 61 Height = 13 Caption = 'Categories' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object AddressBooks: TListBox Left = 8 Top = 24 Width = 145 Height = 174 Color = clWhite DragMode = dmAutomatic Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 Items.Strings = ( 'All Contacts' 'Business' 'Competition' 'Favorites' 'Hot Contacts' 'International' 'Key Customer' 'Personal' 'Suppliers' 'VIP') ParentFont = False Sorted = True TabOrder = 0 OnClick = AddressBooksClick end end object ListView1: TListView Left = 175 Top = 37 Width = 457 Height = 177 HelpContext = 91 Color = clWhite OnDblClick = ListView1DblClick Columns = < item Caption = 'Full Name' Width = 150 end item Caption = 'Company' Width = 150 end item Caption = 'Business Phone' Width = 150 end item Caption = 'Home Phone' Width = 150 end> ReadOnly = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] HideSelection = False IconOptions.Arrangement = iaLeft AllocBy = 10 MultiSelect = True SortType = stText TabOrder = 0 ViewStyle = vsReport OnKeyDown = ListView1KeyDown StateImages = ImageList1 end object Panel2: TPanel Left = 0 Top = 0 Width = 638 Height = 31 Align = alTop BevelOuter = bvLowered TabOrder = 8 object DeleteBut: TSpeedButton Left = 10 Top = 3 Width = 25 Height = 25 Hint = 'Delete' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF000000000 FFFFFFF8888888887FFFFFF0F8888880FFFFFFF8F7F7F7F87FFFFFF0F0707080 FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080 FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080 FFFFFF78F8F8F8F87F7FF0F0F0708080F0FFF878F8F8F8F878FFFF00F0707080 0FFFFF88F8F8F8F88FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF080808080 FFFFFFF8F8F8F8F877FFFF00000000000FFFFF888888888887FFFF0F77788888 0FFFFF8FFFFFFFFF87FFFF00000000000FFFFF88888888888FFFFFFFF08880FF FFFFFFFFF8FFF87FFFFFFFFFF00000FFFFFFFFFFF88888FFFFFF} NumGlyphs = 2 OnClick = DeleteButClick end object PrintBut: TSpeedButton Left = 137 Top = 3 Width = 24 Height = 25 Hint = 'Print' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} NumGlyphs = 2 OnClick = PrintButClick end object MesgBut: TSpeedButton Left = 47 Top = 3 Width = 25 Height = 25 Hint = 'Send Message' Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDD DDDDDDD0DDDDDD000000DDDDDDDDDD0F0DDDDD000000DDDDDDDDD0FFF0DDDD00 0000DDDDDDDD0FFFFF0DDD000000DDDDDDD0F4FFF1F0DD000000DDDDDD0F4F4F 111F0D000000DDDDD0F4F4FFF1F0DD000000D0000FFF4FFFFF000D000000D030 FFFFFFFFF0030D000000D0730000000000330D000000D0707777777777030D00 0000D0077777777777700D000000D0000000000000000D000000DDDDDDDDDDDD DDDDDD000000DDDDDDDDDDDDDDDDDD000000} OnClick = MesgButClick end object DialBut: TSpeedButton Left = 73 Top = 3 Width = 25 Height = 25 Hint = 'Dial Number' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF000000000 00FFFFF88888888888FFFFF09111111110FFFFF8F7F7F7F7F8FFF11097070707 10FFF888F878787878FF1FF09999999910FF8F787F7F7F7F78FF1FFF09707079 0FFF8FFF8F8787878FFF1000109999901000888888FFFFF88888801110000000 1110F8F778888888F778F099901111109990F87F787777787778FF0999999999 990FFF87FFFFFFFFFF8FFFF10000000001FFFFF88888888888FFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} NumGlyphs = 2 OnClick = DialButClick end object WebBut: TSpeedButton Left = 99 Top = 3 Width = 25 Height = 25 Hint = 'Go To Web Site' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555FFFFF555555555544C4C5555555555F777775FF5555554C444C444 5555555775FF55775F55554C4334444445555575577F55557FF554C4C334C4C4 335557F5577FF55577F554CCC3334444335557555777F555775FCCCCC333CCC4 C4457F55F777F555557F4CC33333CCC444C57F577777F5F5557FC4333333C3C4 CCC57F777777F7FF557F4CC33333333C4C457F577777777F557FCCC33CC4333C C4C575F7755F777FF5755CCCCC3333334C5557F5FF777777F7F554C333333333 CC55575777777777F755553333CC3C33C555557777557577755555533CC4C4CC 5555555775FFFF77555555555C4CCC55555555555777775555550000} NumGlyphs = 2 OnClick = WebButClick end object ExitBut: TSpeedButton Left = 601 Top = 3 Width = 25 Height = 25 Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB 0333337F777FFFFF7F33330000000000033333777777777773330000} NumGlyphs = 2 OnClick = ExitButClick end end object ImageList1: TImageList Left = 555 Top = 158 Bitmap = { 360C000002000000424D360C0000000000003604000028000000400000002000 0000010008000000000000080000000000000000000000000000000000000000 0000000080000080000000808000800000008000800080800000C0C0C000C0DC C000F0CAA6000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000F0FBFF00A4A0A0008080 80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000707 0707070707070707070707070707070707070707070707070707070707070707 0707070707070707070707070707070707FF0707070707070707070707070707 07070707070707070707070707070707070707070707070707070707070707F8 FF07070707040707070704070704070707040704070707070707070707070707 0007070700070007070700070007070700070007000707070707000707070007 0707070707070707070707070707070707070707070707070707070707070707 0404070707070707040404040707040407070404040404070704040404070704 04040707070707FF0707FF070707F80007070707070707070700070707070707 0404070704040404070707070707040404070704040407070704040407070704 0404040407070707070707070707070404070707070704040404070707070606 06060606060606060606060607FF07070007070707070707FF07070707070707 07070707F8FF0707070707070704040707070707070704040404070704040707 0707F80007FF0707F8000707F800070707070707FF0707070000000000000000 0606060606060606060606060606060606060606060606060606060606060707 0707070707070707070707070707070707070707070707070707070707070707 070707070707070707070707070707070707070707FF07070707070707070707 0707070707070707070707070707070707070707070707070707070707070707 070707F8FF070707070407070707040707040707070407040404040407070707 0707070700070707000707000000000700070707000700070000000000070007 0707000707070707070707070707070707070707070707070707070707070707 0707070704040707070707070707070707070404070707070704040707070707 0707070707070707070707FF0707FF070707F800070707070707070707000707 0707070707070707070707070707070707070404040707040404070707070707 0707070707070707070707070707070707070704040707070707070707070606 0606060606060606060606060606060607FF07070707070707070707FF070707 0707070707070707F8FF07070707070707040407070707070707070707070707 070707070707F80007FF0707F8000707F800070707070707FF07070700000000 0000000006060606060606060606060606060606060606060606060606060704 0707070707070707070707070707070707070707070707070707070707070707 07070707070707070707070707070707070707070707070707FF070707070707 0707070707070707070707070707070707070707070707070707070707070707 07070707070707F8FF070707070407070707040707040707070407040707FFFF FFFFFFFF0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0707 000700070707000707070707070707070707070707070707070707070707FFFF FFFF000007070707070000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0407 070707070707070707070707070707FF0707FF070707F800070707070707FFFF FF00F8F807F800F807F8F800FFFF000000000000000000000000000000000707 070707070707070707070707070707070707070707070704040707070707FFFF 0007070707F800F80707070700FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFF000707 FF0707070707070707070707F8FF07070707070707040407070404070707FFFF 00F8F8F80707000707F8F8F800FF00FFFFFFFFF8F8F8FFFFFFFFFFFFFF000707 000000000000000006060606060606060606060606060606060606060606FFFF 00070707070000000707070700FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFF000707 0707070707070707070707070707070707070707070707070707070707FFFFFF 00F8F8F8F8000000F8F8F8F800FF00FFFFFFFFF8F8F8F8F8F8FFFFFFFF000707 0707070707070707070707F8FF0707070704070707070404070407070704FFFF 00070707070707070707070700FF00FFFFFFFFFFFFFFFFFFFFFFF9F9F9000007 070000000707070000000007070707070707070707070707070707070707FFFF FF0000000000000000000000FFFF00FFF8F8F8FFFFFFFFFFFFFFF9FCFA000707 07040407070707070707070707070707070707FF0707FF070707F8000707FFFF FFFF000700FFFFFF000700FFFFFF00FFFFFFFFFFFFFFFFFFFFFFF9FAF9000707 040407070707070707070707070707070707070707070707070404040404FFFF FFFF000700FFFFFF000700FFFFFF000000000000000000000000000000000707 07070707FF0707070707070707070707F8FF070707070707070704040404FFFF FFFF000700FFFFFF000700FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0707 FF0707070000000000000000060606060606060606060606060606060606FFFF FFFFF8F80700000007F8F8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0707 070707070707070707070707070707070707070707070707070707070707FFFF FFFFFF00070707070700FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0707 070707070707070707070707070707F8FF07070707040707070707070707FFFF FFFFFFFF0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0707 070700070707070707070707070700070707070707070707070707070707FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0707 0707070707070707070707070707070707070707070707FF0707FF070707424D 3E010000000000003E0000002800000040000000200000000100010000000000 000100000000000000000000000000000000000000000000FFFFFF000707FF07 07070707070707070707070706060606060607FF060606060606060606060606 0606060606060606060606060606060606FAFA06000000000000000607070000 00000000070707070707FF070707F8000707F80007070707F80007FF07070707 0707070707070707070707FF0707070707070707070707070707070700000000 0707070700000000070707070000000007070707000000000707070700000000 07070707000000000707070700000000070707070000000007F8FF0700000000 0707070700000000070707070000000007070707000000000707070700000000 07070707000000000707070700000000070707070000000000070707} end object MainMenu1: TMainMenu Left = 595 Top = 158 object File1: TMenuItem Caption = '&File' ShortCut = 0 object Import1: TMenuItem Caption = '&Import' ShortCut = 0 object FromNetscape301: TMenuItem Caption = 'From &Netscape 3.0' ShortCut = 0 OnClick = FromNetscape301Click end object HTMLFile1: TMenuItem Caption = '&HTML File' ShortCut = 0 OnClick = HTMLFile1Click end object Eudoro341: TMenuItem Caption = '&Eudoro 3,4' ShortCut = 0 OnClick = Eudoro341Click end end object Exit1: TMenuItem Caption = '&Exit' ShortCut = 0 OnClick = Exit1Click end end object AddressBook2: TMenuItem Caption = '&Address Book' ShortCut = 0 object NewContact1: TMenuItem Caption = '&New Contact' ShortCut = 0 OnClick = NewButClick end object EditContact1: TMenuItem Caption = '&Edit Contact' ShortCut = 0 OnClick = EditButClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object To1: TMenuItem Caption = '&To' ShortCut = 0 end object CC1: TMenuItem Caption = '&CC' ShortCut = 0 OnClick = CCButClick end object BCC1: TMenuItem Caption = '&BCC' ShortCut = 0 OnClick = BccButClick end end object AddressBook1: TMenuItem Caption = '&Categories' ShortCut = 0 object NewAddressBook1: TMenuItem Caption = '&New Category' ShortCut = 0 OnClick = NewAddressBook1Click end object EditSelectedBook1: TMenuItem Caption = '&Rename Selected Cat...' ShortCut = 0 OnClick = EditSelectedBook1Click end object DeleteSelectedBook1: TMenuItem Caption = '&Delete Selected Cat...' ShortCut = 0 OnClick = DeleteSelectedBook1Click end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object Contents1: TMenuItem Caption = '&Contents' ShortCut = 0 end end end object OpenDialog1: TOpenDialog DefaultExt = 'htm' FileEditStyle = fsEdit FileName = 'address' Filter = 'Netscape Address Books|*.htm|All Eudora 3,4 Address Files|*.txt|' + 'All Files|*.*' Options = [ofHideReadOnly, ofFileMustExist] Title = 'Import Address File' Left = 528 Top = 160 end object PrintDialog1: TPrintDialog Left = 499 Top = 163 end end